Public Partial Class FrmSolicitudServicio
    Inherits System.Web.UI.Page
    Private TblCliente As CapaDeNegocios.nCliente = New CapaDeNegocios.nCliente
    Private tblContacto As CapaDeNegocios.nContacto = New CapaDeNegocios.nContacto
    Private tblTipoUnidad As CapaDeNegocios.nTipoUnidad = New CapaDeNegocios.nTipoUnidad
    Private TblSolicitudServicio As CapaDeNegocios.nSolicitudServicio = New CapaDeNegocios.nSolicitudServicio()

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("Login") = "Anonimo" Then
            Response.Redirect("/")
        End If

        If Not Page.IsPostBack Then
            lnkListadoSolicitudes.OnClientClick = "javascript:var popup = window.open('FrmListaSolicitudModificar.aspx?IdSolicitud=" + HFSolicitud.ClientID + "&IdCliente=" + HFCliente.ClientID + "','popup','Width=800,Height=500,Scrollbars=NO,Resizable=NO,Location=NO,Menubar=NO,Status=NO,Titlebar=NO,Toolbar=NO')"
            LlenarCboTipoUnidad()
            LlenarCboCliente()
        End If
    End Sub
    Sub LimpiarCampos()
        Me.DPFechaRealizacion.SelectedValue = DBNull.Value
        Me.DPSolicitudServicio.SelectedValue = DBNull.Value
        TxtDescripcion.Text = ""
        LlenarCboTipoUnidad()
        LlenarCboCliente()
        HFSolicitud.Value = ""
        LlenarCboCliente()
        LlenarCboTipoUnidad()

    End Sub

    Sub LlenarCboTipoUnidad()
        CboTipoUnidad.Items.Clear()
        CboTipoUnidad.Items.Add("")
        CboTipoUnidad.DataSource = tblTipoUnidad.Buscar(0, "", 1)
        CboTipoUnidad.DataTextField = "Descripcion"
        CboTipoUnidad.DataValueField = "CodigoTunidad"
        CboTipoUnidad.DataBind()
        CboTipoUnidad.SelectedIndex = 0

    End Sub
    Sub LlenarCboCliente()
        CboCliente.Items.Clear()
        CboCliente.Items.Add("")
        CboCliente.DataSource = TblCliente.Listar("", "", "", "", "", "", "", "", "", "", "", "")
        CboCliente.DataTextField = "RazonSocial"
        CboCliente.DataValueField = "CodigoCliente"
        CboCliente.DataBind()
        CboCliente.SelectedIndex = 0
    End Sub
    Protected Sub LnkGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkGuardar.Click

        Dim FechaSolicitud As New Date
        Dim FechaRealizacion As New Date

        FechaSolicitud = DPSolicitudServicio.SelectedValue
        FechaRealizacion = DPFechaRealizacion.SelectedValue


        If HFSolicitud.Value = "" Then
            TblSolicitudServicio.Insertar(0, FechaSolicitud, FechaRealizacion, TxtDescripcion.Text, CboCliente.SelectedValue, TxtEstado.Text, CboTipoUnidad.SelectedValue)
        End If
        LimpiarCampos()
    End Sub
    Protected Sub LnkCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkCancelar.Click
        LimpiarCampos()

    End Sub
End Class